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ABSTRACT 

This  report  describes  a computer  program  for  solving 
problems  dealing  with  learning  curve  theory.  The  program 
Is  interactive,  written  for  the  remote  computer  terminal. 
It  is  written  in  Fortran  IV  language  for  the  CDC  6500/6600 
computer  system  at  USA  Research  and  Development  Command, 
Dover,  New  Jersey  but  can  be  easily  adapted  to  other 
computer  systems. 
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INTRODUCTION 


The  history  of  experience  curve  theory  dates  to  about  1936  and  there 
are  hosts  of  references  describing  the  theory  and  Its  application.  This 
report  assumes  a knowledge  by  the  potential  user  of  both  'unit  theory' 
experience  curve  manipulations  and  remote  computer  terminal  usage. 

The  elementary  experience  (learning)  curve  theory  postulates  that 
as  the  numbers  of  an  Item  produced  Increases  sequentially,  the  cost 
of  the  item  decreases  in  a relationship  defined  by  the  power  curve: 

Y ■ AX®  Where:  X ■ Item  number 

Y “ Cost  of  item  X 
A “ Cost  of  first  unit  (X  ■ 1) 

B - Learning  Slope  Exponent 

Expressed  logarthlmlcally  the  power  curve  assumes  the  following 
form: 

LOG  Y - LOG  A + B .LOG  X 

This  form  of  the  power  curve  plots  a straight  line  on  log/log 
graph  paper  and  It  is  this  relationship  which  is  exploited  In  the 
computer  program  to  provide  solutions  to  typical  learning  curve 
problems. 

This  report  will  describe  the  computer  program  usage  by  presenting 
typical  problems  for  each  of  tha  eight  computational  segments. 

All  user  Input  to  the  remote  terminal  will  be  underlined  to  acquaint 
the  user  with  the  kind  of  Information  that  Is  axpected  by  each  of 
the  program  sagmenta, 
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The  program  Is  written  In  Fortran  IV  for  use  by  the  CDC 


6500/6600  st  AKRADCOM,  Dover,  NJ  but  can  be  adapted  to  any  computer 
ays tea. 
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PROGRAM  INPUT  RESTRICTIONS 


Input  formats  are  relatively  uniform  throughout  each  segment 
of  the  program  and  are  few  enough  to  commit  to  memory. 

The  restrictions  are: 

(1)  All  lot  size  input  must  contain  9 digits,  right-hand 
oriented.  Thus,  unit  number  1 of  a lot  is  input  as  000000001; 
unit  number  15560  is  input  as  000015560.  It  is  obvious,  therefore, 
that  the  program  is  capable  of  handling  very  large  lot  sizes. 

(2)  'Number  of  lots'  input  must  contain  2 digits  right-hand 
oriented.  One  (1)  lot  is  input  as  01.  The  maximum  number  of  lots 

is  15.  EXCEPTION:  Program  segment  VHATI7  will  accept  only  5 lots  max. 
for  its  computations  and  only  one  (1)  digit  is  required  for  input. 

(3)  All  cost  data  must  contain  a decimal  point.  The  program 
will  accept  ten  digits  max.  (with  the  decimal  point  considered 

a digit),  including  costs  exact  to  the  penny.  Maximum  acceptable 
cost,  then,  may  have  the  following  appearance: 

9999999.00  OR 
999999999. 

(4)  The  learning  slope  exponent  is  input  as  it  appears  in 
learning  slope  tables  preceded  by  the  minus  (-)  sign. 
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PROGRAM  DESCRIPTION 


Description  on  Program  Entry 

When  the  program  la  entered  the  user  may  proceed  directly  to 
a desired  segment,  depending  upon  hla  familiarity  with  the  segment 
code  letters,  or  he  may  have  a short  description  and  the  code  letter 
associated  with  each  segment.  Figure  1. 

FIGURE  1 


FOP  SHORT  DESCRIPTION  OF  PROGRAM 
TYPE  Y OR  TYPE  SEGMENT  LETTER. 


THIS  PROGRAM  CONSISTS  OF  THE  FOLLOWING  SEGMENTS: 


A.  MIDPOINT 

B.  FUNTOT 

C.  FUNAV 

D.  TOTCOST 

E.  AVUCOST 

F.  MIDBEST 

G.  WHAT  IF 

H.  LOTSIZE 


DETERMINES  LOT  MIDPOINTS 
DETERMINES  FIRST  UNIT  COST 
DETERMINES  FIRST  UNIT  COST 
DETERMINES  TOTAL  COST  OF  LOT 
DETERMINES  ITEM  AVERAGE  COST 
DETERMINES  FIRST  UNIT  COST 
AND  LEARNING  SLOPE  EXPONENT 
DETERMINES  LOT  SIZES 
DETERMINES  SIZE  DF  A SINGLE  LOT 


IF  YOU  NEED  MORE  DETAIL  TYPE  LETTER  UR  TYPE  NO 


In  response  to  the  last  direction.  Input  of  ’NO’  will  allow  the 
user  to  enter  any  of  the  computation  segments  of  the  program.  Figure  2. 
Detailed  Description 

Additional  description  of  any  program  segment  Is  provided  by  an  Input 
of  any  letter  from  A to  H.  All  descriptions,  obtained  by  responding  'NO' 
to  each  option.  Is  provided  In  Figure  3.  Note  that  each  description  is 
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followed  with  the  options  that  allow  the  user  to  enter  the  computational 
segment  or  call  for  additional  descriptions.  Errors  in  input  create*  an 
error  message  and  the  opportunity  to  re-enter  a corrected  input. 


FIGURE  2 


FOR:  SHORT  DESCRIPTION  OF  PF'OGRfiM 
TYPE  Y OR  TYPE  SEGMENT  LETTER. 


THIS  PROGRRM  CONSISTS  OF  THE  FOLLOWING  SEGMENTS: 

R.  MIDPOINT  - DETERMINES  LOT  MIDPOINTS 

B.  FUN TOT  - DETERMINES  FIRST  UNIT  COST 

C.  FUNfiV  - DETERMINES  FIRST  UNIT  COST 

D.  TOTCOST  - DETERMINES  TOTRL  COST  OF  LOT 

E.  RVUCOST  - DETERMINES  ITEM  RVERRGE  COST 

F.  MIDBEST  - DETERMINES  FIRST  UNIT  COST 

RND  LERPNING  SLDPE  EXPONENT 

G.  WHRTIF  - DETERMINES  LOT  SIZES 

H.  LOTSIZE  - DETERMINES  SIZE  OF  R SINGLE  LOT 

IF  YOU  NEED  MORE  DETRIL  TYFE  LETTER  OP  TYPE  NO 
NO 

TYPE  IN  LETTER  OF  PROGRRM  YOU  DESIRE 

£L 

THIS  IS  MIDPOINT 


ENTER  LERPNING  SLOPE  EXPONENT 
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FIGURE  3 


FOP  SHORT  DESCRIPTION  OF  PROGRAM 
TYPE  V OP  TYPE  SEGMENT  LETTER. 


THIS  PROGRAM  CONSISTS  OF  THE  FOLLOWING  SEGMENTS: 


A. 

M I DPO I NT 

- DETERMINES 

LOT  MIDPOINTS 

B. 

FIJNTOT 

- DETERMINES 

FIRST  UNIT  COST 

C. 

FUNAV 

- DETERMINES 

FIRST  UNIT  COST 

D. 

TOTCOST 

- DETERMINES 

TOTAL  COST  OF  LOT 

E. 

AVUCOST 

- DETERMINES 

ITEM  AVERAGE  COST 

F. 

MIDBEST 

- DETERMINES 

FIRST  UNIT  COST 

AND  LEARNING  SLOPE  EXPONENT 

G. 

WHAT  IF 

- DETERMINES 

LOT  SIZES 

H. 

LOTSIZE 

- DETERMINES 

SIZE  OF  A SINGLE  LDT 

IF  YOU  NEED  MORE  DETAIL  TYPE  LETTER  OR  TYPE  NO 

PROGRAM  MIDPOINT 

THIS  SEGMENT  CALCULATES  LOT  MIDPOINTS  IF  THE  LEARNING 
SLOPE  EXPONENT  AND  LDT  QUANTITIES  (FIRST  AI^D  LAST  ITEMS.) 
ARE  KNOWN.  TYPE  A TO  CALL  PROGRAM  OR  TYPE  NO 
NO 

WHAT  PROGRAM  DO  YOU  WANT  DESCRIBED-TYPE  LETTER 
B 

PROGRAM  FIJNTOT 

THIS  SEGMENT  CALCULATES  FIRST  UNIT  COST  IF  THE  LEARNING 
SLOPE  EXPONENT * LOT  QUANTITIES  (FIRS,  AND  LAST  ITEMS) 

AND  TOTAL  COST  OF  THE  LOT  ARE  KNOWN.  TYPE  B TO  CALL  THIS 
PROGRAM  OR  TYPE  NO 
NO 

WHAT  PROGRAM  DO  YOU  WANT  DESCRIBED-TYPE  LETTER 

C 

PROGRAM  FUNAV 

THIS  SEGMENT  CALCULATES  FIRST  UNIT  COST  IF  THE  LEARNING 
SLOPE  EXPONENT*  LOT  QUANTITIES  (FIRST  AND  LAST  ITEMS) 

AND  THE  AVERAGE  UNIT  COST  OF  AN  ITEM  IN  THE  LOT  ARE  KNOWN. 
TYPE  C TO  CALL  THIS  PROGRAM  OR  TYPE  NO 
NO 


FIGURE  3 (CONTINUED) 


MHRT  PROGRRM  DO  YDU  WRNT  DESCRIBED-TYPE  LETTER 
D 


PR06RRM  TDTCDST 

THIS  SEGMENT  CRLCULRTES  THE  TOTRL  COST  OF  R LOT  IF  THE 
LERRNING  SLOPE  EXPONENT,  FIRST  UNIT  COST,  RND  LOT  G'URN- 
TITIES  -FIRST  RND  LRST  ITEMS),  RPE  KNOWN.  TYPE  D TO  CRLL 
THIS  F'ROGRRM  OR  TYPE  NO 
NO 

WHRT  PROGRRM  DO  YOU  WRNT  DESCRIBED-TYPE  LETTER 
E 


PROGRRM  RVUCOST 

THIS  SEGMENT  CRLCULRTES  THE  RVEF'RGE  COST  OF  RN  ITEM  IN  R 
LOT  IF  THE  LERRNING  SLOPE  EXPONENT,  FIRST  UNIT  COST  RND 
LOT  QURNTITIES  (FIRST  RND  LRST  ITEMS),  RRE  KNOWN.  TYPE  E 
TO  CRLL  THIS  PROGRRM  OR  TYPE  NO 
NO 

WHRT  PROGRRM  DO  YOU  WRNT  DESCRIBED-TYPE  LETTER 
F 


PROGRRM  MIDBEST 

THIS  SEGMENT  CRLCULRTES  FIRST  UNIT  COST  RND  LERRNING  SLOPE 
EXPONENT  FROM  LOT  DRTR  IF  THE  RVERRGE  UNIT  COST  OF  RN  ITEM 
IN  ERCH  OF  THE  LOTS  RND  LOT  QURNTITIES  (FIRST  RND  LRST 
ITEMS)  RRE  KNOWN.  LERST  MERN  SQURRE  FIT  OF  DRTR  IS  UTILIZ- 
ED. STRNDRRD  ERROR  OF  ESTIMRTE  RND  CORRELRT I ON  COEFFICIENT 
RRE  CRLCULRTED.  PRITGRRM  CRN  RCCLlMODRTE  MRXIMUM  OF  NINE  (9) 
LOTS.  TYPE  F TO  CRLL  THIS  PROGRRM  OR  TYPE  NO. 


WHRT  PROGRRM  DO  YDU  WRNT  DESCRIBED-TYPE  LETTER 
G 


PROGRRM  WHRT IF 

THIS  SEGMENT  COMPUTES  THE  SIZE  OF  1 OR  MOPE  LOTS  (5  MRX) , IF 
THE  TDTRL  COST  OF  THE  LOT  (S) , THE  1ST  UNIT  COST*  RND  THE 
LERRNING  SLOPE  EXPONENT  RRE  KNOWN.  TYPE  G TO  CRLL  THIS  PRO- 
GRRM  OR  TYPE  NO 
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FIGURE  3 (CONTINUED) 


UHRT  PPDGRRM  HD  YOU  WRNT  DESCRIBED-TYPE  LETTER 


PROGRAM  LOTSIZE 

THIS  SEGMENT  COMPUTES  THE  SIZE  OF  R SINGLE  LOT  IF 
COST  OF  THE  LOT.  THE  1ST  UNIT  COST.  THE  LEHRNING  S 
F'ONENT  FIND  THE  THE  FIRST  UNIT  OF  THE  LOT  FIFE  F NOUN 
FERS  FROM  SEGMENT  WHRTIF  IN  THRT  THE  FIRST  UNIT  OF 
CRN  BE  RNY  UNIT  'OTHER  THRN  UNIT  NO.  1 • . TYPE  H TO 
THIS  PPDGRRM  OR  TYPE  NO 


THE  TOTRL 
LOPE  E.  - 
. I T r T F - 
LOT  1 i E 
CRLL 
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TYPICAL  PROBLEMS : INPUT  AND  OUTPUT 


Subroutine  MID-POINT 

Problem:  (a)  What  are  the  lot  mid-points  of  the  following  lot 

procurements  of  an  item  whose  production  learning  slope  is  85Z 
(-.234465)?  (b)  If  lots  2/3  and  4/5  are  combined  what  are  the 

new  lot  aid-points  of  the  three  lots  if  the  learning  slope  Is  91Z 
(-.136061)? 


Lot 

First  Unit 

Last  Unit 

(a)  1 

1 

750 

2 

751 

2000 

3 

2001 

5000 

4 

5001 

10000 

5 

10001 

25000 

(b)  1 

1 

750 

2 

751 

5000 

3 

5001 

25000 

The  program  output  Is  shown  in  Figure  4. 


FIGURE  4 


FDR  SHORT  INSCRIPTION  OF  PROGRAM 
TYPE  Y OR  TYPE  SEGMENT  LETTER. 

A. 

THIS  IS  MIDPOINT 


ENTER  LEARNING  SLOPE  EXPONENT 
-.£34465 
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FIGURE  A (CONTINUED) 


HOW  MANY  LOTS 
05 


ENTER  FIRST  UNIT  OF  EACH  LOT 

U ij  Q Q Q n Q fi  1 

0 n 0 Q Q 075 1 
0 0 ij  0 Qc!  0 0 1 
0 0 0 0 05  0 0 1 
0O001 0001 

ENTER  LAST  UNIT  OF  EACH  LOT 

0 Q 0 0 0 i.i75  0 
n ij  0 0 Qc  0 0 0 
0 0 0 0 05  0 0 0 
i.i  ij  0 0 1 0 0 0 0 
0 U 0 OS' 5 Q Q 0 


DATA  FOR  SLOPE  OF  85.00  RCT . 


FIRST  UNIT  OF  LOT  LAST  UNIT  OF  LOT  LOT  MID-RD I NT 


1 

750 

£48 

751 

£ 0 0 0 

1314 

£001 

5 0 0 0 

336£ 

5001 

1 0000 

7 cl  4 

1 0001 

£5  0 0 0 

1 68  08 

MORE 

DATA  FOR  MIDPOINT  PROGRAM  - ANS 

. YES  OR  NO 

YES 

SAME 

LEARNING  SLOPE 

EXPONENT  - ANS. 

YES  OR  NO 

NO 

tNTER  LEARNING  SLOPE  EXPONENT 
-.136 06 1 


HOW  MANY  LOTS 

M 
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FIGURE  4 (CONTINUED) 


ENTER  FIRST  UNIT  OF  EACH  LOT 
0 0 0 1 j Q 0 0 Q 1 
0 Q Q Q Q Q 751 
0 U 0 0 05  0 0 1 


ENTER  LflS T UNIT  OF  EACH  LOT 

0 00 00 0750 
0 0 0 Q 05  0 0 0 
0 0 0 0E5  0 u 0 


DRTR  FDR  SLDPE  DF  91.00  PCT. 

FIRST  UNIT  DF  LDT  LFtST  UNIT  DF  LOT  LOT  MIU-PDINT 

1 750  £58 

751  50UU  £527 

5001  £5000  13574 

MDRE  DRTR  FDR  MIDPOINT  PR06RRM  - RNS.  YES  DR  ND 
ND 

IF  YOU  DESIRE  RDDITIDNRL  PRDGRRMS  TYPE  PERTINENT 
LETTER  DR  TYPE  ND 
ND 

STOP 

Subrouting  FUNTOT 

Problem  (a)  What  la  tha  Flrat  Unit  Coat  of  an  ltea  produced  on  a 
learning  alope  of  87Z  (-.200913)  if  the  total  lot  of  6400  lteaa 
(firit  ltea  In  lot  “ 1)  cost  $41,600?  (b)  With  the  saaa  lot  else  and  coat 
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FIGURE  5 (CONTINUED) 


SAME  TOTAL  LOT  COZT  - AMS.  YES  OP  MO 

YES 

EATER  MO.  OF  FIRST  UNIT  IN  LOT 

U 000015 01 

EATER  AO.  OF  LAST  UAIT  IN  LOT 

000007900 

THE  FIRST  UAIT  COST  = t £4.72 

MORE  DATA  FOR  FIRST  UAIT  COST  - AAS.  YES  OP  AO 
HO 

IF  YOU  DESIRE  ADD  I T IOAAL  PROGRAMS  TYPE  PERT  I MEAT 
LETTER  OR  TYPE  AO 
AO 

Subroutine  FUNAV 

Problem:  (a)  What  la  the  First  Unit  Coat  of  an  Item  produced  on 
a learning  slope  of  87Z  (-.200913)  if  the  average  coat  of  an  item  in  a 
6400  item  lot  (first  item  in  lot  ■ 1)  is  $6.50?  (b)  With  the  same  lot 

size  and  average  unit  cost,  what  is  the  First  Unit  Cost  if  the  learning 
slope  is  89. 5Z  (-.160040),  and  the  first  unit  in  the  lot  is  7001? 

The  program  output  is  shown  in  Figure  6. 


FIGURE  6 


FDR  SHORT  DESCRIPTION  OF  PROGRAM 
TYPE  Y OR  TYPE  SEGMENT  LETTER. 


THIS  IS  FUNAV 


ENTER  AVERAGE  UAIT  COST  OF  LOT 

6.50 
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what  is  the  First  Unit  Cost  if  the  learning  slope  is  89. 5Z  (-.160040), 
and  the  first  unit  in  the  lot  is  1501. 

The  program  output  is  shorn  in  Figure  5. 

FIGURE  5 


FOR  SHORT  DESCRIPTION  OF  PROGRRM 
TYPE  Y OR  TYPE  SEGMENT  LETTER. 

IL 

THIS  IS  FUNT OT 


ENTER  TOTRL  COST  OF  THE  LOT 
4 1 6 U 0 . 

ENTER  LERRNING  SLDPE  EXPONENT 

-■ £00913 

ENTER  NO.  OF  FIRST  UNIT  IN  LOT 

000000001 

ENTER  NO.  OF  LOST  UNIT  IN  LOT 
000006400 

THE  FIRST  UNIT  COST  = * 30.23 

MORE  DRTR  FOP  FIRST  UNIT  COST  - RNS.  YES  OR  NO 

YES 

SRME  LERRNING  SLOPE  EXPONENT  - RNS.  YES  OR  NO 
NO 

ENTER  LERRNING  SLOPE  EXPONENT 
-. 160040 
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FIGURE  6 (CONTINUED) 


1 


ENTER  LEARNING  SLOPE  EXPONENT 

-.£00913 


ENTER  NO.  OF  FIRST  UNIT  IN  LOT 

0 0 0 0 Q i j Q Q 1 

ENTER  NO.  OF  LAST  UNIT  IN  LOT 

0 0 0 0 064  0 0 

THE  FIRST  UNIT  COST  = 1 30.23 

NOPE  DATA  FOR  FIRST  UNIT  COST  - ANS.  YES  OP  NO 

YES 

SAME  LEARNING  SLOPE  EXPONENT  - ANS.  YES  OR  NO 
NO 

ENTER  LEARNING  SLOPE  EXPONENT 
-. 160040 

< SAME  AVG.  UNIT  COST  - ANS.  YES  OR  NO 

YES 

ENTER  NO.  OF  FIRST  UNIT  IN  LOT 

000007001 

ENTER  NO.  OF  LAST  UNIT  IN  LOT 
0 0 0 1-1 1 34 IJ  0 

THE  FIRST  UNIT  COST  = * £8.33 

MORE  DATA  FOR  FIRST  UNIT  COST  - ANS.  YES  OP  NO 
NO 

IF  YOU  DESIRE  ADDITIONAL  PROGRAMS  TYPE  PERTINENT 
LETTER  OP  TYPE  NO 
NO 

STOP 

Subroutine  TOTCOST/Subroutlne  WHATIF 


The  TOTCOST  segment  sample  problem  demonstrates  how  the  user  may 
solve  several  problems  dealing  with  the  total  cost  of  s lot,  with  a 
single  computation.  (This  short  cut  can  also  be  accomplished  with 
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Subroutine  AVUCOST.)  The  sample  problem  for  TOTCOST  also  provides 
an  Ideal  example  for  the  use  of  the  WHATIF  Segment. 

Problem:  (a)  What  Is  the  total  cost  for  each  of  the  two  lots 
shown  below  If  the  Item  Is  produced  on  a learning  slope  of  90Z 
(-.152003)  and  the  first  unit  cost  Is  $98.50?  (b)  If  the  same  total 

quantity  Is  procured  In  two  lots  of  1500  and  6000,  all  else  being  equal 
(same  first  unit  cost  and  learning  slope  exponent),  what  will  be  the 
cost  of  each  lot?  (c)  If  equal  dollar  amounts  are  to  be  spent  for 
each  lot,  what  lot  sizes  can  be  procured? 


Lot 

First  Unit 

Last  Unit 

(a)  1 

1 

2500 

2 

2501 

7500 

(b)  1 

1 

1500 

2 

1501 

7500 

The  output  for  solution  to  parts  (a) , (b)  above  Is  shown 
in  Figure  7. 

FIGURE  7 

FDR  SHORT  DESCRIPTION  OF  PROGRAM 
TYPE  Y OR  TYPE  SEGMENT  LETTER. 
b 

THIS  IS  TOTCOST 


ENTER  LEARNING  SLOPE  EXPONENT 

152003 

ENTER  FIRST  UNIT  COST 
98.50 
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FIGURE  7 (CONTINUED) 


HDl.l  MRMY  LOTS 
04 


enter  first  unit  of  erch  lot 

000000001 
000U0E501 
0 0 0 0 0 0 0 0 1 
000001501 


ENTER  LfiST  UNIT  OF  ERCH  LOT 

0 0 0 0 0E5  0 0 
OOP 007500 
0 0 0 0 0 1 5 0 0 
0 Q 0 0 075  0 0 


] 

besovaimble  copy 


DRTR  FDR! 


SLOPE  PC  T . 

9 0 . 0 0 

1ST  UNIT  COST  * 

98.50 

FIRST  UNIT  OF  LOT 

LRST  UNIT  OF  LOT 

TOTRL  COST  OF  1 

1 

£500 

88357. 09 

8501 

7500 

1 36 0£ 1.75 

l 

1500 

57£78. 48 

1501 

7500 

1671 00.36 

Not*  that  the  total  of  tha  two  lota,  problem  (a)  or  (b)  la  $224,378.84 

«» 

(aa  expected) . Sample  problem  (c)  aeeka  to  determine  what  lot  alzea 
could  be  procured  If  the  total  dollar  quantity  were  equally  divided, 
$112,189.42,  between  the  two  lota.  The  WHATIF  Segment  provide*  the 
eolutlon.  Figure  8. 
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FIGURE  8 


MORE  DATA  FDR  TOTAL  LOT  COST  - AMS.  YES  DR  HD 
HD 

IF  YOU  DESIRE  ADDITIOHAL  PROGRAMS  TYPE  PERT IHEHT 
LETTER  DR  TYPE  HD 

G 


THIS  IS  WHAT  I F 


EHTER  HD.  DF  LDTS  <MAX=5> 


EHTER  FIRST  UHIT  COST 

98. 50 

EHTER  LEARHIHG  SLDPE  EXPDHEHT 

158003 

EHTER  TDTAL  CDST  DF  EACH  LDT 
1 1 S'  1 8 9 . 4 8 
118189. 48 


LDT  SIZE  LAST  UHIT  LDT  CDST  AVG.  UHIT  CDST 

3313.  3313.  118189.  33.86 

4187.  7500.  118189.  86.79 


MDRE  DATA  FDR  WHAT  IF  - AMS.  YES  DR  HD 
HD 


IF  YOU  DESIRE  ADDITIOHAL  PROGRAMS  TYPE  PERT IHEHT 
LETTER  DP  TYPE  HD 
HD 

STOP 

Subrout lna  MIDBEST 

Given  a aat  of  historical  procurement  date  the  MIDBEST  segment 
computes  the  first  unit  cost  end  learning  slope  exponent.  The  data  are 
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fitted  to  the  logarithmic  form  of  the  power  curve  by  classical  least 
mean  square  techniques.  The  output  also  provides  a Standard  Error  of 
Estimate  (Standard  Deviation)  as  a guide  to  the  fit  of  the  input  data 
to  the  theoretical  curve. 

The  initial  query  of  this  segment  requests  the  user  to  provide  a 
guess  of  the  learning  slope.  The  purpose  for  this  guess  is  to  reduce 
computation  time  and  the  possibility  of  encountering  a computer  system 
time  limit.  If  the  user  is  utterly  devoid  of  any  learning  exponent 
estimate  he  should  enter  a value  of  -.234465  (85Z).  This  value  of  the 
learning  slope  is  commonly  used  as  a starting  point  in  nonautomated 
solutions  of  this  problem. 

Problem:  Four  lots  of  an  item  were  procured  in  quantities  and  at 
average  unit  costs  shorn  below.  Determine  (a)  the  first  unit  cost  of 
the  item  and  its  learning  slope. 

Lot  First  Item  Last  Item  Average  Unit 


In  Lot 

In  Lot 

Cost 

1 

901 

3632 

$ 7922 

2 

3633 

6958 

5963 

3 

6959 

10860 

4989 

4 

10861 

15624 

4714 

Figure  9 is  the  output  for  this  problem. 


FIGURE  9 


FDR  iHORT  DESCRIPTION  DF  PROGRRM 
TYPE  Y OR  TYPE  SEGMENT  LETTER. 

F 

THIS  IS  MIDBEST 
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FIGURE  9 (CONTINUED) 


ENTER  YOUR  GUESS  OF  SLOPE  EXPONENT  (USE  NEG  SIGN) 
634465 

HQi-l  MANY  LOTS 
04 

ENTER  FIRST  UNIT  OF  EACH  LOT 
Q Q Q Q Q 09  Q 1 

000003633 
U 0 0 0 06953 
00001  OS' 6 1 

ENTER  LOST  UNIT  OF  EfiCH  LOT 

00000365c 
000006956 
0 0 0 Q 1 086  0 
000015664 


ENTER  AVG.  UNIT  COST  OF  EfiCH  LOT 
79c’ c' . 

5963. 

498$ . 

4714. 


LEfiRNING  SLOPE  EXPONENT  = -.690403 
LEARNING  SLOPE  PERCENT  = 81.77 
FIRST  UNIT  COST  = * 71997.54 
STANDARD  ERROR  OF  ESTIM  = * 116.84 


MORE  DATA  FOR  MIDBEST 
NO 

IF  YOU  DESIRE  ADDITIONAL  PROGRAMS  TYPE  PERTINENT 
LETTER  OP  TYPE  NO 
NO 


STOP 


BEST  AVAILABLE  COPY 
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Subroutine  LOTSIZE 


Whereas  WHATIF  computes  the  sizes  of  lots  starting  from  Item  1, 
the  LOTSIZE  Segment  computes  the  size  of  single  lot  starting  anywhere 
on  the  cost/cumulative  quantity  curve.  To  Illustrate  the  LOTSIZE 
segment,  the  sample  problem  utilizes  a part  of  the  data  shown  in  the 
WHATIF  solution.  Figure  8. 

Problem:  A total  of  $112,189  Is  available  for  procurement  of  a lot 
of  Items  which  have  been  produced  on  a demonstrated  learning  slope  of 
90Z  with  a first  unit  cost  of  $98.50.  The  first  unit  of  this  lot  will 
be  the  3314th  produced.  (a)  What  Is  the  size  of  lot  that  can  be 
procured,  (b)  the  final  unit  of  the  lot,  and,  (c)  the  average  unit  cost 
of  lot? 

Figure  10  Is  the  output  for  this  problem. 

FIGURE  10 


FOP  SHORT  DESCRIPTION  OF  PROGPRM 
TYPE  Y OP  TYPE  SEGMENT  LETTER. 

H 

THIS  IS  LOTSIZE 

ENTER  TOTRL  COST  OF  THE  LOT 
1 12189. 

ENTER  LERPNINb  SLOPE  EXPONENT 

152003 


ENTER  FIRST  UNIT  COST 
98.50 


ENTER  NO.  OF  FIRST  UNIT  IN  LOT 

000003314 


BEST  AVAILABLE  COPV 
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FIGURE  10  (CONTINUED) 


TOTRL  LOT 
LRST  UNIT 
RVG . UN  I T 


SIZE  IS  4187. 
IN  LOT  IS  7500. 
COST  IS  £8.78 


IF  YOU  DESIRE  RDDITIONRL  PROGPRMS  TYPE  PERTINENT 
LETTER  OR  TYPE  NO 


STOP 


Subroutine  AVUCOST 

Problem:  What  will  be  the  average  coat  per  unit  for  each  of  three 
lots  described  below  If  the  Items  are  produced  on  a learning  slope  of  80Z 
(-.321928)  and  the  first  unit  cost  Is  $2000. 

The  program  output  is  shown  in  Figure  11. 


FIGURE  11 


FOR  SHORT  DESCRIPTION  OF  F'ROGRRM 
TYPE  Y OR  TYPE  SEGMENT  LETTER. 


THIS  IS  RVUCOST 


ENTER  LERRNIN6  SLOPE  EXPONENT 
3c 19£8 


ENTER  FIRST  UNIT  COST 
£000. 

HOW  MRNY  LOTS 

0£ 


WAHABI  tQP'f 
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FIGURE  11  (CONTINUED) 


ENTER  FIRST  UNIT  OF  EACH  LDT 

Q Q Q 0 Q 0?  0 1 
0 U 0 i.i  0 1 0 0 1 
0 0 0 0 0 1 c 0 1 


enter  last  unit  of  each  lot 

Q 0 M U 0 1 P 0 0 
0 i;i  i.i  o i.i  i 2 i.i  i.i 

0 0 0 i.i  0 1 S'  0 0 


DhTR  FDR: 

SLOPE  F'CT.  80.00 

1ST  UNIT  COST  1.  2000.  00 


FIRST  UNIT  IN  LDT 

901 
1 001 
1201 


LAST  UNIT  IN  LDT 

1 0 C 0 
1 2 0 0 
1500 


LDT  SIZE  AV6 

1 0 0 
2 0 0 
3 0 0 


NDF'E  DhTR  FDR  AVG.  UNIT  COST  - ANS.  YES  DR  ND 
NO 


IF  YOU  DESIRE  HDD  I T I DUAL  PROGRAMS  TYPE  PERTINENT 
LETTER  DR  TYPE  ND 


STOP 


. UNIT  COST 

£20. 00 
209.95 
1 96. 62 
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PROGRAM  LISTING 


PROGRAM  XPCURVEdNPUT  * OU  TPUT  , T APE5=INPUT,T  AP_6=OUT  PJ  I > 

COMMON /A/LOTF (15)  , LOT L ( i 5 ) , L OT S ( 15 ) , Y E A ( 15 ) , X ( 15  I , Y ( 1 5 ) 

COMMON /a /HZ (15 »,HV(15 I , YE (15  I , ZI (151 , AC(1S I ,IZ(l5l 
COMMON/C/AO (51  ,OF  (5)  , DL (5>  tLO(5)  ,XN (5  > ,T (5  I , SL(5) 

DATA  LOTF,lOTL,IZ»H7/6i*C/ 

DATA  YEA  ,Y,HY  , YE  , Z I , AC  , X / 1 >. 5* 0 / 

DATA  AO.DF.DL ,LD, XN,T,Sl/35*C/ 

PRINT  25 

25  FORMAT (3X.32HFOR  SHORT  DESCRIPTION  OF  PROGRAM,/ 

♦ 3X..IJHTYPE  Y OR  TYPE  SEGMENT  LETTER.,/) 

READ  69,  QC 

69  FORMAT  (A2) 

IF(QC.EQ.2HY  ) GOTO  113 

IF (QC • EQ • 2H A ) CALL  HI  DPI  NT , RE T URNS ( 52  ) 

IF(QC.EU.?Hfl  ) CALL  FUNTOT, RETURNS  (52) 

IF(QC.E0.2HC  )CALL  FUNAV, RETURNS (52) 

I F ( QC . EQ . 2 HD  )CALL  TOTCOST , RETURNS ( 52 ) 

IF (QC.EQ.2HE  )CAlL  AtfUCOST, RETURNS (52  ) 

IF(  QC.EC1.2HF  ) C AL  L M IOBE S T , RE TUR NS ( 5 2 ) 

IF(QC.EQ.2HG  )CAlL  MHATIF, RETURNS  (52  ) 

IF(OC.EQ.2HH  JCALL  LOTSIZE,RETURNS(52) 

113  PRINT  51 

81  FORMAT  ( 3X  * 48HT  HI S PROGRAM  CONSISTS  OF  THE  FOLLOWING  SEGMENTS!// 

♦8X.38HA.  MIDPOINT  - DETERMINES  LOT  MIDPOINTS/ 

♦8X.4JHB.  FUNTOT  - DETERMINES  FIRST  UNIT  COST/ 

♦ 8X,<.;hC.  FUNAv  - DETERMINES  FIRST  UNIT  COST/ 

♦8X,42H0.  TOTCOST  - DETERMINES  TOTAL  COST  OF  LOT/ 

♦ 8X.-.2HE.  AVUCOST  - DETERMINES  ITEM  AVERAGE  COST/ 

♦ 8X,<OHF.  MIOBEST  - DETERMINES  FIRST  UNIT  COST/ 

♦ 22  X , 2 7 MA  NO  LEARNING  SLOPc  EXPONENT/ 

♦ 3 X , • G . HHATIF  - DETERMINES  LOT  SIZES*/ 

♦8X,*h.  LOTSIZE  - DETERMINES  SIZE  OF  A SINGLE  LOT*// 

*3X,*6HIF  YOU  NEED  MORE  DETAIL  TYPE  LETTER  OR  TYPE  ND,/> 

82  PEAD  12,1 

12  FORMAT  (A2) 

ICOUNT  *ICCUNT  *1 
IF(IC0UNT.EQ.9)G0TJ  Li, 

IF(Q.EQ.2HA  )GOTO  17 
IF(Q.EQ.2MB  ) GOTO  23 
IF ( 1. E0.2HC  (GOTO  26 
IF (Q, E0.2MQ  i GO T 0 29 
IF(Q.EO.?Ht  ) GOTO  31 
IF(Q.FQ.2HF  (GOTO  J<* 

IF(Q.E0.2MG  (GOTO  33 

I F ( Q, EQ, 2MH  ) GOTO  77 
PRINT  13 

13  FOHMAT  <JX,36MTYPE  IN  LETTER  OF  PROGRAM  YOU  DESIRE,/) 
lo  READ  14, 01 

I*,  FORMAT  f A 1 > 

IF(Q1.E0. IMA (CALL  M IOPI N T , RE  TURNS (5 2 ) 

IF(QI.EQ.1H9)CAlL  FUNTOT ,RFTURNS(52) 

IF  ( U.EQ.IHOCAlL  FUNAv,  RET  URNS  (52) 

IF(Q1.EQ.1M0)CALL  TOT COST, RE  TURNS  (5  2) 


best  available  copy 
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IF  C Q1  .EQUINE)  CALL  AVUCOST,  RETURNS  15  2 ) 

IF(Q1 .EQ.1HFICALL  MI09EST, RETURNS  152 > 

IF(Q1  ,<EQ.  1HG>  CALL  WMATIF  .RETURNS  (52) 

IF (Q1.E3.1HHI  CALL  LOT  SIZE, RETURNS (521 
PRINT  15 

15  FORMAT  <3X,2*,HWR0NG  LETTER  - TRY  AGAIN,/! 

GOTO  16 
1/  P*INT  19 

19  /ORMAT  <3X , 16HPP0GRAM  MIDPOINT// 

♦7X.53HTHIS  SEGMENT  CALCULATES  LOT  MIDPOINTS  IF  THE  LEARNING/ 

/ ♦ 7X , 56  HSLOPE  EXPONENT  AND  LOT  QUANTITIES  (FIRST  ANO  LAST  ITEMS)/ 

y * 7 X , i»4  H ARE  KNOWN.  T Y°E  A TO  CALL  PROGRAM  OR  TYPE  NO,/) 

READ  19, Q2 
19  FORMAT  (A2) 

IF(Q2.EQ.2HA  ) C AL  L MI OPI NT , RETURNS « 52  ) 

2b  PRINT  21 

21  FORMAT  (3X.L6HWHAT  PROGRAM  DO  YOU  WANT  OES CRI 8 ID -T Y» E LETTER,/) 

GOTO  82 
23  PRINT  2L 

2*  FORMAT  ( 3X , l^HPROGRAM  FUNTOT// 

♦7X.55HTHIS  SEGMENT  CALCULATES  FIRST  UNIT  COST  IF  THE  LEARNING/ 
♦7X.53HSLOPE  EXPONENT,  LOT  QUANTITIES  (FIRST  ANO  lAST  ITEMS)/ 

7X  , 56  H ANO  TOTAL  COST  OF  THE  LOT  ARE  KNOWN.  TYPE  9 TO  CALL  THIS/ 

♦ 7 X , 1 8HPR0GRA  M OR  TYPE  NO,/) 

READ  19,  13 

IF ( Q? . EQ. 2H9  ) CAL  L FUNTO T , RE  TURNS (5 2 > 

GOTO  2.i 

26  PRINT  27 

27  FORMAT  (3X, 13H PROGRAM  FUNAV// 

♦7x,55hthis  segment  calculates  first  unit  cost  if  the  learning/ 

♦ 7X  , 53HSLOPE  EXPONENT,  LOT  QUANTITIES  (FIRST  ANO  LAST  ITEMS)/ 
♦7X.58HANO  THE  AVERAGE  UNIT  COST  OF  AN  ITEM  IN  THE  LOT  ARE  KNOWN./ 
♦7X,39HTVPE  C TO  CALL  THIS  PROGRAM  OR  TYPE  NO,/) 

READ  1 9, Q4 

IF(Q4.EQ.2HC  )CAlL  FIJNAV  .RETURNS  (52) 

GOTO  20 

29  PRINT  3C 

30  FORMAT  (3X, 15HPROGRAM  TOTCOST// 

♦ 7x,5-*hthis  segment  calculates  the  total  cost  of  a lot  if  the/ 

♦ 7X.53HLEARNING  SlOPE  EXPONENT,  FIRST  UNIT  COST,  ANO  LOT  QIJAN-  / 

♦ 7X.56HTITIES  (FIRST  AND  LAST  ITEMS),  ARE  KNOWN.  TYPE  0 TO  CAtL/ 
♦7x,23hthis  program  or  type  no,/) 

RE  AO  19,05 

IF (Q5.EQ. 2H0  ) CALL  TOTCOST ,RETURNS(52 ) 

GOTO  2C 

31  PRINT  32 

32  FORMAT  ( 3X , 15HPROGRAM  AVUCOST// 

♦7X,5oHTHIS  SEGMENT  CALCULATES  THE  AVERAGE  COST  OF  AM  ITEM  IN  A/ 

♦ 7 X, 55HLC T IF  THE  LtARNING  SLOPE  EXPONENT,  FIRST  UNIT  COST  ANO/ 

♦ 7X , 56HL0T  QUANTITIES  (FIRST  ANO  LAST  ITEMS),  ARE  KNOWN.  TYPE  E/ 
♦7X.31HTO  CALL  THIS  PROGRAM  OR  TYPE  NO,/) 

READ  19, Q6 

IF(Q6.EQ.2HE  )CALL  AVUCOST ,RETURNS(52 » 


BEST  AVAILABLE  COPY 


2A 


GOTO  z: 

3*.  PRINT  35 

35  FORMAT  ( 3X , 15HPR0GR AN  MIOBEST// 

♦7X,53HTHIS  SEGMENT  CALCULATES  FIRST  UNIT  COST  UNO  LEARNING  SuOPE/ 
♦7X ,53HExPONENT  FROM  LOT  OATA  IF  THE  AVERAGE  UNIT  COST  OF  AN  ITEM/ 
*7X,5*HIN  EACH  OF  THE  LOTS  ANQ  LOT  QUANTITIES  (FIRST  AND  LAST/ 
♦7X.59HITEMS)  ARE  KNOWN.  LEAST  MEAN  SQUARE  FIT  OF  OATA  IS  UTIlIZ-/ 
♦7X,58mE0.  STANOARO  ERROR  OF  ESTIMATE  AND  CORRELATION  COEFFICIENT/ 
♦7X.57HAPE  CALCULATED.  PROGRAM  CAN  ACCOMODATE  MAXIMUM  OF  NlNE(9>/ 
♦7X,45HLOTS.  TYPE  F TO  CALL  THIS  PROGRAM  OR  TYPE  NO./) 

READ  19, Q7 

IF (Q7 . EQ ,2HF  ICALL  MI OBEST , RETURNS ( 52 » 

GOTO  2.' 

88  PRINT  24j 

24C  FORMA T (3X, "PROGRAM  WHATIF*//, 

♦7X,*THlS  SEGMENT  COMPUTES  THE  SIZE  OF  1 OR  MORE  L0TS(5  MAX),  IF*/ 

♦ 7X , *TH£  TOTAL  COST  OF  TH-  LOT(S),  THE  1ST  UNIT  COST,  ANO  TH£* / 
♦7X,*LE ARNING  SLOPE  EXPONENT  ARE  KNOWN.  ty»e  G TO  CALL  THIS  PRO-*/ 

♦ 7 X , *GR AM  OR  TYPE  NO*,/) 

READ  19, Q9 

IF ( Q ) . EQ . 2 HG  )CALL  MHATIF, RETURNS  (52) 

GOTO  20 

77  PRINT  66 

66  FORMAT (3X, ’PROGRAM  LOTSIZE*// 

♦7X,*THIS  SEGMENT  COMPUTES  THE  SIZE  OF  A SINGLE  LOT  IF  THE  TOTAL*/ 

♦ 7x  »*COST  OF  THE  LOT,  THE  1ST  UNIT  COST,  THE  LEARNING  SLOPE  EX-*/ 

♦ 7 X , * PONE  NT  AnO  THE  THE  FIRST  UNIT  OF  THE  LOT  ARE  KNOWN.  IT  OIF-*/ 
♦7X,*FEPS  FROM  SEGM.NT  WHATIF  IN  THAT  THE  FIRST  UNIT  OF  LOTSIZE*/ 
♦7X,*CAN  BE  ANY  UNIT  (OTHER  THAN  UNIT  NO.  1).  TYPE  H TO  CALL*/ 
♦7X,*THIS  PROGRAM  OR  TYPE  NO*/) 

READ  1 9, Q1 u 

IF (Qlj .EQ.2HH  ) CA  L L L OT S I ZE , RE  TURNS ( 5 2 ) 

GOTO  2 ' 

52  PRINT  37 

37  FORMAT  (3X.43HIF  YOU  OESIRE  ADDITIONAL  PROGRAMS  TYPE  PERTINENT/ 
♦3X.17HLETTER  OR  TYPE  NO,/) 

22  READ  19,08 

IF(Q3.EQ.2HA  )CALL  MIOPINT ,RETURNS(52 ) 

IF(Q3.EQ.2HB  )CALL  FUNTO T ,RE TURNS  (52 ) 

IF(Q3.EQ.2HC  )CALL  FUNA V , RETURNS ( 52 ) 

IF ( 08 . EQ , 2HD  )CALL  TOTCOST , RETURNS ( 52 ) 

IF ( 03 . EQ. 2HE  )CALL  AVUC0ST,RETURNS(52) 

IF(Q3.EQ.2HF  (CALL  MI08E 3 T ,RET URNS ( 5 2 ) 

IF (Q3.EQ.2HG  (CALL  WH A T I F , RETURNS ( 5 2 ( 

IF (08.EQ.2HH  ) CALL  LOTS  I ZE , RE  TURNS ( 5 2 ) 

GOTO  1 

44  PRINT  33 

33  FORMAT ( • YOU  HAVE  EXHAUSTED  ALL  DESCRIPTION.  IF  YOU  DO  NOT  NOW*/ 

*♦  TYPE  A PERTINENT  LETTER  FOR  A PROGRAM  SEGMENT  THE  PROGRAM  WILL*/ 
♦*  BE  TERMINATED. •/( 

GOTO  22 
1 STOP 

END 


25 


BEST  AVAILABLE  COPY 


su  routine  avucost.returnsud 

COMMON/A/lOTF  (15) ,LOTL(l3!,LOTS(l5),YEA(15),X(15),Y(15) 
COMMON/O /HZ  (15)  ,HY (15 ) , Y E( 15) , ZI ( 15) , AC) 15  > ,IZ(15) 
COMMON/C/AO  (:>)  ,OF  (:>! ,OL (3)  ,LQ(5)  , XN(5)  ,T (5  I , SL(5) 

PRINT  K 

1.  FORMAT  ( 3X  » 1 5HT Hi S IS  AVUCOST, ////) 

PRINT  132 

132  FORMAT  (3  X , * ENTER  LEARNING  SLOPE  EXPONENT*/! 

READ  62,3 
62  FORMAT  (F8.6) 

PRINT  64 

64  FORMAT  (3X, 21  RENTER  FIRST  UNIT  COST,/! 

RE  AO  65, A 

65  FORMAT  (Flu. 2! 

63  PRINT  54 

54  FORMA  T ( 3X , * HOW  MANY  LOTS*/! 

READ  148,  NA 
148  FORMAT  (12) 

I A = 1 

PRINT  15* 

15:  FORMAT  (3X,28HENTER  FIRST  UNIT  OF  EACH  LOT,/! 

151  RE  AO  152,  N2 

152  FORMAT  (19) 

L OT F ( I A ) =N2 
I A- 1 A » 1 

IF(IA.LE.NA)GOTO  151 
19  = 1 

PRINT  153 

153  FORMAT  ( 3X , 27M2NT ER  LAST  UNIT  OF  EACH  LOT,/) 

154  RE  AO  152,  N1 
LOTL (19) =N1 
19=13*1 

IF(I9.LE.NA)G0T0  15* 

553  IC=1 

155  C = FLOAT(LOTL(IC)>  *.5 
0=FL0AT(l0TF( IC) ) -.5 

e=c-o 

00  83  J= 1 , N A 

33  L0TS( J)=l0TL( J)-LOTF(J)*l 
F=  1 . * 8 

HY(IC)=A*(C**F-0**F)/(E*F) 

IC=IC*1 

IF (IC.LE.NA)GOTO  155 
PRINT  156 

156  FORMA  T (1 X , 1H  ,/) 

Z5  = 1 3 u «*  1C  .♦*  (-B*  A LOG  1C  (0  .5)  ) 

PRINT  43,  Z5,  A 

42  FORMAT  (5X , 9H0ATA  FORI ,/5X, 19MSL0PE  PCT.  ,F5.2/ 

♦5X,15H1ST  UNIT  COST  3,F9.2//> 

PRINT  157 

157  FORMAT)*  FIRST  UNIT  IN  LOT  LAST  UNIT  IN  LOT*, 

LOT  SIZE  AVG.  UNIT  COST*/) 

PRINT  15  3, (LOTF(IO) ,LOTL (10) ,LOTS ( 10 ) , MY ( I 0) , I0=1,NA) 

" BEST  WNUfitt 


158  F0RMAT(4X,I9,1CX,I9,6X,I9,F14.2) 

PRINT  212 

212  FORMAT  (IX, 1H  ,/////) 

PRINT  71 

71  FORMAT  < 3X  , 45HM0RE  OATA  FOR  AVG.  UNIT  COST  - ANS  . YES  OR  NO,/) 
RtAO  72,21 

72  FORMAT  (A3) 

I F ( 21 . EQ • 3HNO  ) GOTO  52 
PRINT  73 

73  FORMAT  <3X,4 5MSAME  LEARNING  SLOPE  EXPONENT  - ANS.  YES  OR  NO, 7) 
READ  72,22 

IF ( 22 . EQ . 3 HNO  )GOTO  79 
23.  PRINT  7«* 

74  FORMAT  (3X, 37HSAME  FIRST  UNIT  COST  - ANS.  YES  OR  NO,/) 

READ  72,23 

IFC23.EO.3HNO  >GOTO  67 
GOTO  549 
79  PRINT  132 
RE  AO  62,  B 
GOTO  23l 
67  PRINT  7C 

7;  FORMAT  (3X.25HENTER  NEW  FIRST  UNIT  COST,/) 

READ  65,  A 
549  PRINT  551 

551  FOkMAT(*  SAME  NO.  OF  LOTS  ANO  LOT  SI7ES-ANS.  YES  OR  NO*/) 

RE AO  72,24 

IF(24.EQ.3MYES)G0T0  55L 
GOTO  63 

52  RETURN  A1 
ENO 


BEST  AVAILABLE  COPY 
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SUJRDUTINE  FUNAV,  RETURNS  < A 1 » 

COMMON/A/LOTF(15> ( L0TLI15) ,L0TS(15), YEA( 15  » , X C 15), Y( 15) 

COMMON /h /HZ  (15)  * H Y (15)  * V £ C 15  I *71  ( 151  , A C ( 15  ) , I Z ( 1 5) 

COMMON /C/AO (5  I ,0F(5I,0L(5>,LD(5),XN(5),T(5),SL(5) 

PRINT  6 

6 FORMAT  (3X.13HTHIS  IS  FUNAy/,////) 

PRINT  IGu 

10c  FORMAT  (IX.SCHENTER  AVERAGE  UNIT  COST  OF  LOT,/) 

RE  AO  137,  V 
132  FORMAT  (F11.2) 

PRINT  132 

132  FORMAT  ( 3 X , ♦ cNTER  LEARNING  SLOPE  EXPONENT*/) 

reao  ic<*,e 

1C <•  FORMAT  (F  1 2 • 6) 

115  PRINT  1*5 

105  FORMAT  ( 3X , 3C HE  NT E R NO.  OF  FIRST  UNIT  IN  LOT,/) 

RE  AO  lcfe,  N2 

106  FORMAT  (19) 

PRINT  107 

107  FORMAT  (3X,29HENTER  NO.  OF  LAST  UNIT  IN  LOT,/) 

REAO  106,  N 1 

O = FL0AT(N2)  - „ . 5 
C = F L CAT ( Nl ) ♦ 0.5 

E = C - O 
F = 1.  . ♦ 3 

A = E*V*F/(C**F  - 0**F) 

PRINT  1.3, A 

103  FORMAT  (28X,23HTH£  FIRST  UNIT  COST  = S,F10.2) 

PRINT  1C  1 

131  FORMAT  ( 3X , 46HMORE  DATA  FOR  FIRST  UNIT  COST  - ANS.  TES  OR  NO,/) 
REAO  93, Z1 
98  FORMAT  (A3) 

IF(Z1.EQ.3  HNO  ) GOT  O 32 
PRINT  112 

112  FORMAT  ( 3X, 45HSAME  LEARNING  SLOPE  EXPONENT  - ANS.  TES  OR  NO,/) 
REAO  93, Z2 

IF ( 22 • EQ. 3 HNO  ) GOTO  60 
78  PRINT  221 

221  FORMAT  (3X,36HSAME  AVG.  UNIT  COST  - ANS.  VES  OR  NO,/) 

R' A J 98, 13 

IF (Z3.EQ.3HYES )GOTO  115 
PRINT  128 

128  FORMAT  ( 3X , 2<»H£NT  ER  NEW  AVG.  UNIT  COST,/) 

REAO  122,  V 
GOTO  115 
63  PRINT  132 

REAO  life,  8 
GOTO  73 

52  RETURN  A1 

FNO 


i 
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SUBROUTINE  FUNTOT , RETURNS) Al) 

COMMON/A/LOTF  (15),LQTL<1*>,L0TS(15),YEA(15),X(15>,Y(15) 
C0MN0N/8/HZ  C 1 5 » ,HY (15  ) ,Y-(l5),ZI(15),AC(15),IZ<15) 

COMMON /C /AO lot  , DF(5),OL(5),LO(5),XN(5>,T(5),SL(5> 

PRINT  « 

4 FORMAT  <3X,l4HTHIS  IS  FUNTOT,////) 

PRINT  2Cj 

23  FORMAT  (3X,27HENTER  TOTAL  COST  OF  THE  LOT,/) 

RE  AO  2 32,  U 
232  FORMAT  <Flw.2) 

PRINT  132 

132  FORMAT (3X,*  ENTER  LEARNING  SLOPE  EXPONENT*/) 

RE  AO  2 C 4 , fa 
2C  4 FORMAT  (FlL.o) 

215  PRINT  2*5 

2.5  FORMAT  ( 3X, 3„ HENTER  NO.  OF  FIRST  UNIT  IN  LOT,/) 

RE AJ  206,  N2 
2Co  FORMAT  (19) 

PRINT  2.7 

2Q7  FORMAT  ( 3X , 2RHENT E R NO.  OF  LAST  UNIT  IN  LOT,/) 

READ  206,  N1 

o = float (N2 ) - «.5 
C = FLOAT(Nl)  *0.5 
F = 1.0  ♦ B 
A = U*F/(C**F  - 0 * * F ) 

PRINT  2:a,A 

238  FORMAT  (26X,23HTHE  FIRST  UNIT  COST  = $,F13.2) 

PRINT  183 

188  FORMAT  (3X,46HM0RE  9ATA  FOR  FIRST  UNIT  COST  - ANS.  YES  OR  NO,/) 
READ  91, Z1 
91  FORMAT  (A3) 

IF(Zl.EO. 3HNO  ) GOTO  52 
PRINT  121 

121  FORMAT  ( 3X , 45H SAME  LEARNING  SLOPE  EXPONENT  - ANS.  YES  OR  NO,/) 
RE  AO  91, Z2 

IFIZ2.EQ.3HN0  )GOTO  47 
51  PRINT  232 

232  FORMAT  I3X,36HSAME  TOTAL  LOT  COST  - ANS.  YES  OR  NO,/) 

RE  AO  91, Z3 

IF(Z3.EQ.3HYES)GOTO  215 
PRINT  53 

53  FORMAT  ( 3X , 24HENT  E R NEW  TOTAL  LOT  COST,/) 

RE  AO  232,  U 
GOTO  215 
4 7 PRINT  132 

READ  2C4,  8 
GOTO  51 

52  RETURN  A 1 

ENO 
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SUdROUTlNE  LOTSIZE.RETURNSUl) 

COMMON/A/LOTF ( 15) ,LOTl<15),LOTS<15),YEA<15>.X(lD>,r<15> 
CONMON/B/HZ  <15  ) , HY  1 15  l , Y c<  15  > , ZI  ( 15  > , AC  ( 15  ) , I Z (1  51 
COMMON /C/AO <5  I ,OF  <51 ,OL (5  > ,L0<5> , XN<5»  ,T  (5  ) , SL  (5) 

PRINT  13  J 

13.  FORMAT**  THIS  IS  LOT3IZE*/) 

PRINT  20  j 

20C  FORMA  T (3X  , * ENTER  TOTAL  COST  OF  THE  LOT*/) 

RE  AO  202, U 
2.’2  FORMAT  (Fit  .2> 

PRINT  132 

132  F0»MAT(3X,*  ENTER  LEARNING  SLOPE  EXPONENT*/) 

RE  AO  204  , B 
•234  FORMAMFU  .6) 

PRINT  16-, 

164  FORMAT <3X, ’ENTER  FIRST  UNIT  COST*/) 

RE  AO  165, A 

165  FORMA  T (F8  • 2 ) 

PRINT  1C  5 

105  FORMAT C3X, ’ENTER  NO.  OF  FIRST  UNIT  IN  LOT*/) 
read  106, N2 
13  6 FORMAT  119) 

0=  FLOAT  C N2 ) - . 5 
F=l.f B 

CCi)=<F*U/(A)’0**F>  **(l/F)-.5 

TLS=CCO*.5-0 

XAC=U/TLS 

PRINT  131, TLS , CCD , X AC 

131  FORMAT (5X,*TOTAL  LOT  SIZE  IS*,F12.C, 

♦ /5  X , * L AS  T UNIT  IN  LOT  1S*,F1Q.0, 

*/5  X ,*  A VG . UNIT  COST  IS* , F 1 1 . 2//// /) 

RETURN  A 1 
ENO 


BEST  AVMIABLE  OFT 
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SUBROUTINE  MIOBEST, RETURNS (Al) 

COMMON/A/LOTF(15)  » i-OTL  (15)  ,LOTS(15),YEA(15),X(15),Y(l5) 
C0MM0N/3/HZ ( 15) ,HY(15),YE(15),ZI(15),AC(t5>,IZ(l5) 

CO MM  ON /C/ AO  15 ) ,0F  t 5 > ,OL (5) ,L0(5)  ,XNC5 ) ,T (5)  , S L C 5 > 

DIMENSION  YC ( 9 ) 

PRINT  36 

36  FORMAT  (3X,15HTHIS  IS  Ml OBES T , // / / ) 

PRINT  38 

33  FORMAT (*  ENTER  YOUR  GUESS  OF  SLOPE  EXPONENT  (USE  NES  SIGN)*/) 
READ  39,3 
39  FORMAT (F9  • 6 ) 

211  PRINT  54 

54  FORMAT (3X,*  HOW  MANY  LOTS*/) 

READ  18C,  N 
18:  FORMAT  112) 

I A = 1 

PRINT  181 

181  FORMAT  (3X , 28HENTE  R FIRST  UNIT  OF  EACH  LOT,/) 

182  RE  AO  183,  < 

183  FORMAT  (19) 

LOTF(IA)=K 

I A = I A*  1 

IF(IA,L£»NI GOT  0 182 
19  = 1 

PRINT  184 

IS*  FORMAT  < 3X , 27HENT  E R LAST  UNIT  OF  EACH  LOT,/) 

185  RE  AO  183,  L 
LOTHIB)  = L 
13=19*1 

IF ( 13. LE • N) GOT  0 185 
16C  10=1 

PRINT  186 

18o  FORMAT  ( 3X , 32MENT  ER  Aw  j.  UNIT  COST  OF  EACH  LOT,/) 

187  READ  87,  AUC 
87  FORMAT  (F1C.2) 

ACCIO) =AUC 

Y(  10) =AL0G13 (AUC) 

10=10*1 

IF(I3.LE.N)G0T0  187 
189  IC=1 

Z=100 .*10 .** (-9*ALOG10 (0 .5) ) 

19v.  C = FLOAT(LOTL  ( IC)>  *.5 
0=FL0AT(t0TF(IC)) -.5 
E = C-0 
F= 1.3  *9 
H=-1.G/B 

P0INT=((£*F)/(C**F-0**F) )**H 
IZA=IFIX (POINT  ♦ .5) 

ZIIIC)=FLOAT(IZA) 

X(IC)=AL0G13(ZI(IC)I 

IC=IC*1 

IF(IC.LE.N)GOTO  1 9 j 
SUMX  * O.t 
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sumy  = c.c 

SUMXY  = j.o 
SUMXSQ  = C.C 
1 = 1 

191  SUMX=SUMX*X (I ) 

SUMY  = SUMY  ♦ Y(I) 

SUMXY  = SUMXY  ♦ X(I)*Y<I> 

SUHXSQ  = SUM  XSQ  ♦ X(I)**2. 

I = I ♦ 1 

IF ( I . L E. N) GOT  0 191 
SUMSQX  = SUMX  * * 2 . 

EN  = FLOAT (N) 

F = (SUMY*SUMXSQ  - SUMX’SUMXY) /(£N*SUMXSQ  - SUMSQXI 
G = ( E N*  SUM X Y - SUMX*SUMY) /(EN*SUMX3Q  - SUMSQX) 

FIkSTU  = 10 . **F 

SPCT=10L.*1C.*  *(-G*ALOGlJ  <C .5) ) 

IF  (ABS  (Z-SPCT)  .GT .0  ,5)U  = G 
IF(9.EQ.G)G0T0  189 
PRINT  192,  G,SPCT,FIRSTJ 

192  FORMAT  (25X,26HLEARNING  SLOPE  EXPONENT  = ,F12.6/ 
♦25x,26HL£ARNING  SLOPE  PERCENT  = ,6X,F6.2/ 

♦25x,30HFIRST  UNIT  COST  = $ ,F8.2) 

ST 9 = C . 

UO  2 JQ=1,N 
YC(JQ)=F*G*X(JQ) 

2 STD=ST0*(1G.**YC<JQ)-AC(JQ))**2. 

SEE=SQRT(S TO/ FLOAT (N) ) 

PRINT  1 , SEE 

1 FORMAT (25X,*STANDAR0  ERROR  OF  ESTIM  r t*,Fll.2l 

PRINT  2.1 

2G1  FORMAT  (3X,1M  ,/////) 

PRINT  2?9 

209  FORMAT  ( 3X  , 21HMORE  OATA  FOR  MIDBEST,/) 

RE  AO  2 1C , QA 
21.  FORMAT  (A3) 

IF(QA.£Q.3HNO  )GOTO  52 
PRINT  551 

351  FORMATS  SAME  NO.  OF  LOTS  ANO  LOT  SIZES-ANS.  YES  OR  NO*/) 
READ  72, Z8 
72  FORMA T ( A 3 ) 

IF(Z3.EQ.3HYES)GOTO  160 
GOTO  211 
52  RETURN  Al 

ENO 
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SU  (ROUTINi  MIOPINT ,RETURNS(Al) 

CO  3MON/A/LOTF<15)  ,LOTL  (15)  ,L  0TS(  1 5 » , Y£A<  15)  , X « 15 » , Y(  15) 

C 0 MM  0 N / 9 / H Z ( i 5 ) , H Y (15)  , Y _ ( 1 5 ) , Z I (15)  • A C ( 1 5 > , I Z ( 1 5 ) 

COMMON/C/A')<5  > , OF (?),0l(3) , L 0 ( 5 ) » XN ( 5 ) *T (5) * S L < 5 ) 

PRINT  2 

2 FORMAT  ( 3 X , IqHThIS  IS  MI JPOI NT  , //// ) 

PR  INT  132 

13c  FORMAT (3X,29HENTRR  LEARNING  SLOPE  EXPONENT,/) 

PE  AO  133,  O 
13?  FORMAT  (F5.6) 

150  PRINT  5**  /• 

5-*  FORMAT  (1X,15HH0M  MANY  lots,/) 

READ  >*3*  NA 
45  FORMAT  (12) 

I A = 1 

PRINT  -*fc 

4b  FORMAT  ( Jx , 29HENTER  FIRST  UNIT  OF  EACH  LOT,/) 

117  RE  AO  HO,  N2 
111  FORMAT  (19) 

L9TF ( I A ) = N2 

1 A =1  A ♦ 1 

IF (IA.LE.NA)GOTC  117 
13  = 1 

PRINT  HR 

113  FORMAT  (3X,27h:nTLR  LAST  UNIT  OF  EACH  _OT,/) 

12.  RE  AO  116,  N 1 
LOTl ( 19) =N1 
19=1 3^1 

IF (I9.Lc.NA) GOTO  12] 

IC  = 1 

122  C = FLOAT(lCTL(IC) ) ♦ .5 
D=FLOAT(lCTF( IC) ) -.5 

2 = C - 0 

f = i , : ♦ a 

H = - 1 .2/6 

2 - <(Z*F)/(C**F  -J**F))**h 
IZ (IC > =1 FIX (Z*.5> 

IC=IC»1 

IF  ( IC , LE . NA ) GOT  0 122 
PRINT  126 

12b  FORMAT  (3X,1H  ,//7> 

Z6  = 13C .*11 .**(-0* A lOGIC  <c.f * ) 

PRINT  7b,  Z 6 

76  FORMAT  (3CX,18H0ATA  FOR  SLOPE  OF  ,F5.2,5H  PC T.,//> 

PRINT  124 

124  FORMAT  UX,l7HFIRST  UNIT  OF  LO  T , 4 X , 16  Hl  A ST  UNIT  OF  LOT  , 4 X , 
♦13HLOT  MIO-POINT,/) 

PRINT  125,  (LOTF( I 0) ,L0Tl( 10) , IZ (10) , 10  = 1, NA) 

125  FORMAT  < 9X, 19, 11X , I 9, 9X, 19) 

PRINT  127 

127  FORMAT  <3X,1H  ,///) 

PRINT  48 

43  FORMAT  <JX,47HM0RE  3*TA  FOR  MIDPOINT  PROGRAM  - ANS.  YES  OR  NO, 7) 
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RE4J  49,  Q 
44  FORMAT  (43) 

IPC3.EO.  JHNO  )GOTO  5? 

PRINT  5. 

5 FORMAT  (JX.45HS4ME  LEARNING  SlOPE  EXPONENT  - AnS.  YES  OR  NO,/) 
RE  A J h9,R 

IF(R.EO. SHNO  ) GOT  0 213 
GOTO  159 
213  PRINT  132 
PEA)  42,  B 
<♦2  FORMAT  (Ffi.fc) 

GOT)  159 
52  RETJRN  il 
■_N  ) 
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SU*ROUTINt  TOT 00  ST  , RE  TURNS  (Al) 

COMMON/A/LOTF  < 15)  , L OTL (15)  ,LOTS< 15) , YF  A( 15 ) , < ( 15)  . r ( 15) 

C9MM0N/9/HZ (15) ,HY (10 ) , YE (15) , ZI (15) , AC(15 ) , IZ(1 5) 

CO >*  10N/C /AO  (5  ) ,<0F  ( 3)  ,OL  ( 5)  ,L0(5)  ,XN(5  ) ,T(5  ) , SL  ( ?) 

PRINT  9 

8 FORMAT  (5X,15HThIS  IS  TOTCOST,////) 

PR INT  132 

32  FORMAT<3X»*  _ NT  ER  LEARNING  SLO°E  EX=0N_NT*/> 

RIAO  162  * 3 

162  FORMAT  (Fl..o) 

PJINT  lb4 

164  FORMAT  ( 3X,  21HENTER  FIkST  UNIT  COST,/) 

R 40  161 , A 

165  FORMAT  (F8.2) 

34  PRINT  5' 

♦ FOR  NAT  (3  X * * HOW  N A NY  LOTS*/) 

R- AO  136,  NA 

136  FORMAT  C 2) 

14  = 1 

PR  I 4T  167 

16/  FORMAT  (3X,28HENT£R  FIr.ST  UNIT  OF  r A C H LOT,/) 

137  R _ A J 166,  N2 
160  FORMAT  (19) 

LOTF(IA) =62 
I A = I A ♦ 1 

IF (I 1,Ll.NA)G0T0  1 57 
13-1 

PRINT  15) 

16)  FORMAT  ( 5 X , 2 7 H E N T - R LAST  UNIT  OF  EACH  lOT,/) 

138  RIAO  168,  N 1 
LOTl(IP)-N1 

I *3  = I ) ♦ 1 

IF ( I 3 , LE • N A ) jOTO  1 5 3 
IC  = l 

133  C=FL  )AT(wCTL ( IC)  ) ♦ .5 
)=FlOAT(lCTF( IC) ) -.5 

f=  : . f 3 

HZ  (IC  ) -(.*  (C**F-0**F)  /F 
IC=IC+1 

IF(IC.l:.KA)GOTO  133 
“HINT  1-. 

1-1  FORMAT  ( 1 X , 1 H ,////) 

Z7 =10 l .* 1C  .**(-B*AlOSU  (2.5)) 

PRINT  123,  17,  A 

129  FORMAT  (5X,9HOATA  FOR  I , / 5X , 1 9HSl OP£  PCT.  ,-5.2/ 

♦5X,15H1ST  UNIT  COST  !,F3.2//) 

PRINT  17. 

17.  FORMAT  ( -.X  , 1 7HFIRS  T UNIT  OF  L OT  , 4X  , 1 6 Hl  A 5T  UNIT  OF  . 0 T , -.X  , l 7 H T OT  AL 
♦ COST  OF  LOT,/) 

PRINT  141,  (LOTF( I 0) iLOTu(IO) ,HZ (10)  , 10  = 1, NA) 

1 4 1 FORMAT  (')X,  19,  liX  , I9,9X,F12.2) 

PRINT  163 

163  FORMAT  (IX, 1H  ,////) 
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PRINT  17 1 

17;  FORMAT  (3X.45HM0RE  )A  T A FOR  TOTAL  LOT  COST  - ANS.  YES  OR  NO,/) 
REAO  172,71 

172  FQ > MAT  ( A J ) 

IF(Z1.EQ.3mN0  >GOTO  52 
PRINT  173 

173  FORMAT  (3x,45MSANE  LEARNING  SLOPE  EXPONENT  - AuS.  Y-S  OR  NO,/) 
R E A 3 172, Z2 

IF ( Z2 • 50 • 3 rtNO  ) GOT  0 143 
142  pp InT  17, 

174  FORMAT  (3X,37HSAME  FIRST  UNIT  COST  - ANS.  YES  OR  NO,/) 

RFAJ  172,73 

IF  (Z  3 . EQ.3HN0  ) GOTO  145 
GOTO  134 
-.3  PRINT  132 

RrAJ  162,  3 
GOTO  142 
1,5  PRINT  1 4 o 

Nb  FQk.mAT  ( 3X  , Z5HENT  E R NEW  FIRST  UNIT  COST,/) 

RE  40  16E  , A 

GOTO  134 

2 R TURN  A l 
:Nj 
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SU  HlU T I Me  WHAT  IF, RE  TURNS (All 

COMMON/A/LOTF ( 1 5 > ,LOTL (1»>  ,LOT3(15),YfA(15>,X(15),Y(15> 

COMMON/L)/HZ (15) » H Y (15) » Y E ( 1 5 ) » 71 (IS) , A C ( 15  ) , I Z ( 1 51 
COMMON/C/A  J<5  ) ,DF  (p>  , OL  ( 5>  ,L0<  3)  , XN(:>  > ,T(5  > , SL  (5) 

PRINT  2Z  + 

Z2«  FORMA  T ( (X,  *THI  3 IS  MHATIF*////) 

233  PR  INT  "’33 

.39  FORMAT ( *X, ’ENTER  NO.  OF  LOTS  (*AX=p)*/) 

R- A)  2-.1  ,N 
241  FORMAT  (ID 

PRINT  f- 

04  FORMAT ((X, ’ENTER  FIRST  UNIT  COST*/) 

R.A3  55, A 

55  FORMA  T (F it  .2) 

PRINT  1*2 

1 32  FORMAT  ( 5 X * ’ ENTER  LEARNING  SLOP::  EXPOHiNT*/) 

RE  AO  t>2,  ) 

o’  FORMAT(Ffl.o) 

P J INT  11 

11  PORMA T ( 5X, ’ENTER  TOTAL  COST  OF  EACH  LOT*,/) 

00  227  I X- 1 , N 

227  READ  2:2,T(IX) 

2S2  FORMAT (Fit .2) 

< = 1 

F= 1 • ♦ 3 
OF (1)  = 1. 

2 31  XN(K)=(F’T(K)/A)M0F(«)-.5)”F 

LO  (<)  = IFIX  ( (XN(K)  ” (l./F)  ) ) ♦ .5  1 

01  (<) =FLOAT  (lO (<)  ) 

SL (<) =0l (K)-OF(K) *1. 

A 0 ( <)  = T ( < > /SL ( K> 

K=  <♦  1 

IF (<. GT. N> GOTO  234 
OF (<) =0L (K-l  > *1 . 

GOTO  231 
E (4  PRINT  235 

35  FORMAT  (/iX  , ’LOT  S I ZE*  , *.X  , ’LAST  JNIT*,7X, 

♦ ’LOT  COST*  ,<*X  , *A\/G  . UNIT  COST*,/) 

PRINT  236, (SL(JK)  , OL ( UK)  ,T ( JK> , AD ( JK)  , JK=1,N) 
c36  FORMA  T(?X,F  11. 0,2X,Fn.0,Fl5.C,bX,F9.2» 

Pp INT  237 

2J7  FORMAT (//’  MORE  DATA  FOR  WHATIF  - ANS.  YES  OR  NO’/) 

RFAO  72,01- 
72  FORMA  T ( A 3 ) 

IFUIS.E  0. 3HYES)S0T0  238 
RETURN  A 1 
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